Uses mmsystem;
mciSendString('Set cdaudio door open wait', nil, 0, handle);    to open
mciSendString('Set cdaudio door closed wait', nil, 0, handle);    to close